home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOOLPAS2 / CDTO.PAS < prev    next >
Pascal/Delphi Source File  |  1992-09-11  |  271b  |  13 lines
  1. uses dos;
  2. begin
  3.     if paramcount <> 1 then
  4.     begin
  5.         writeln('cdto D:\DIRECTORY');
  6.         writeln('Changes drive AND directory with a single command.');
  7.         writeln('Public domain by Samuel H. Smith, 9/11/92');
  8.                 halt(1);
  9.     end;
  10.  
  11.     chdir(paramstr(1));
  12. end.
  13.